home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_400 / 425_01 / tar / bits.c < prev    next >
Encoding:
C/C++ Source or Header  |  1980-07-23  |  2.6 KB  |  116 lines
  1. #include <stdio.h>
  2. #include "modern.h"
  3. #include "stdinc.h"
  4. #include "zalloc.h"
  5. #include "zipdefs.h"
  6. #include "zipguts.h"
  7. #include "zippipe.h"
  8.  
  9.        void (*ziputbyte)__ARGS__((int)) = NULL;
  10. static unsigned bitbuff;
  11. static int boffset;
  12.  
  13. #ifdef DEBUG
  14. ulg bits_sent;   /* bit length of the compressed data */
  15. #endif
  16.  
  17. #ifdef __TURBOC__
  18.     #include <dos.h>
  19.         #pragma warn -rvl
  20. #endif
  21. unsigned bi_reverse(code, len) /* Reverse the first len bits of a code. */
  22. unsigned code; /* the value to invert */
  23. int len;       /* its bit length: 1 =< len =< 15 */
  24. {
  25. #ifdef __TURBOC__
  26.    _DX = code;  /* inline assembly ha-ha! */
  27.    _CX = len;
  28.    __emit__(/* all arguments must be words to avoid confusion */
  29.    0xC031,  /* xor ax,ax */
  30.    0xEAD1,  /* shr dx,1  */
  31.    0xD0D1,  /* rcl ax,1  */
  32.    0xFAE2); /* loop $-4  */
  33. #else
  34.    register unsigned res = 0;
  35.    do res = (res << 1) | (code & 1), code>>=1; while (--len);
  36.    return res;
  37. #endif
  38. }
  39. #ifdef __TURBOC__
  40.         #pragma warn .rvl
  41. #endif
  42.  
  43. void bi_init() /* Initialize the bit string routines. */
  44. {
  45.    bitbuff = 0;
  46.    boffset = 0;
  47. #ifdef DEBUG
  48.    bits_sent = 0L;
  49. #endif
  50. }
  51.  
  52. void send_bits(value, length) /* Send a value on a given number of bits. */
  53. unsigned value; /* value to send */
  54. int length;     /* number of bits: length =< 16 */
  55. {
  56. #ifdef DEBUG
  57.    Tracevv((stderr," l %2d v %4x ", length, value));
  58.    Assert(length > 0 && length <= 15, "invalid length");
  59.    Assert(boffset < 8, "bad offset");
  60.    bits_sent += (ulg)length;
  61. #endif
  62.    bitbuff |= value << boffset;
  63.    if ((boffset += length) >= 8) {
  64.       putbyte(bitbuff);
  65.       value >>= length - (boffset -= 8);
  66.       if (boffset >= 8) {
  67.          boffset -= 8;
  68.          putbyte(value);
  69.          value >>= 8;
  70.       }
  71.       bitbuff = value;
  72.    }
  73. }
  74.  
  75. /* Write out any remaining bits in an incomplete byte. */
  76. void bi_windup()
  77. {
  78.    Assert(boffset < 8, "bad offset");
  79.    if (boffset) {
  80.       putbyte(bitbuff);
  81.       boffset = 0;
  82.       bitbuff = 0;
  83. #ifdef DEBUG
  84.       bits_sent = (bits_sent+7) & ~7;
  85. #endif
  86.    }
  87. }
  88.  
  89. void bi_putsh(x)
  90. ush x;
  91. {
  92.    putbyte(x & 255); putbyte((x>>8) & 255);
  93. }
  94.  
  95. /* Copy a stored block to the zip file, storing first the length and its
  96.    one's complement if requested. */
  97. void copy_block(buf, len, header)
  98. char far *buf; /* the input data */
  99. unsigned len;  /* its length */
  100. int header;    /* true if block header must be written */
  101. {
  102.    /* align on byte boundary */
  103.    bi_windup();
  104.  
  105.    if (header) {
  106.       bi_putsh(len); bi_putsh(~len);
  107. #ifdef DEBUG
  108.       bits_sent += 2*16;
  109. #endif
  110.    }
  111.    while (len--) putbyte(*buf++);
  112. #ifdef DEBUG
  113.    bits_sent += (ulg)len<<3;
  114. #endif
  115. }
  116.